A28+1    JRST A281
A28+2    CAIL 0,44
A28+3    JRST A28X
A28+4    SUBI 0,36
A28+5    FLTR 0,0
A28+6    MOVEM 0,.COMM.+6
A28+7    MOVE 0,WHOLE+11
A28+10   MOVEM 0,.COMM.+7
A28+11   MOVSI 0,203600
A28+12   MOVEI 5,1
A28+13   CAMN 5,RNW-1
A28+14   FADR 0,WHOLE+14
A28+15   FMPR 0,STF+10
A28+16   KIFIX 0,0
A28+17   ADDM 0,.COMM.+30
A28+20   SETZM COMM.+10
A28+21   SETZM COMM.+11
A28+22   SETZM COMM.+12
A28+23   MOVSI 0,202500
A28+24   MOVEI 2,1
A28+25   CAME 5,RNW-1
A28+26   JRST A28+31
A28+27   MOVNS 0
A28+30   FSBR 0,WHOLE+13
A28+31   FLTR 2,.COMM.+31
A28+32   PUSHJ 17,134512
A28X-4   MOVEM 0,.COMM.+5
A28X-3   JSA 16,MAKNUM

1P        SKIPL 2,.COMM.+14
1P+1      JRST 201P
1P+2      MOVEM 2,JC
1P+3      MOVNM 2,.COMM.+14
1P+4      MOVE 0,.COMM.+11
1P+5      MOVEM 0,JX
1P+6      MOVE 0,.COMM.+5
1P+7      MOVEM 0,N
1P+10     JRST 6M

1P+11     SKIPL 4,JC
1P+12     JRST 100P
1P+13     MOVE 3,JX
1P+14     FADRI 3,204400
1P+15     MOVNS JC
1P+16     KIFIX 4,JC
1P+17     FLTR 4,4
1P+20     FSBR 4,JC
1P+21     MOVNS 4
1P+22     FMPRI 4,204500
1P+23     FADR 3,4
1P+24     CAME 5,JJ+1
1P+25     MOVNS 3
1P+26     FADR 0,3
1P+27     JRST 100P

100P      FADR 0,2
100P+1    POPJ 17,
 
6M        MOVNS J11
201P      JSA 16,NTS